home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / MicroPaint207.lha / MicroPaint / dist / Rexx / Test.mprx < prev    next >
Encoding:
Text File  |  1997-12-22  |  505 b   |  36 lines
  1. /* This script executes all ARexx commands of MicroPaint */
  2. options results
  3. address 'MicroPaint'
  4. 'CLS 2'
  5. 'ABOUT'
  6. 'GETCOLOUR'
  7. say result
  8. 'REQUEST' "" '"Hi!"' ""
  9. say result
  10. 'GETX'
  11. say result
  12. 'GETY'
  13. say result
  14. 'GETMAXX'
  15. say result
  16. 'GETMAXY'
  17. say result
  18. 'GETDEPTH'
  19. say result
  20. 'GETID'
  21. say result
  22. 'IDNAME' 32772
  23. say result
  24. 'GETMODE'
  25. say result
  26. 'MODENAME' 7
  27. say result
  28. 'GETFILENAME'
  29. say result
  30. 'OPEN' ?
  31. say result
  32. 'INTEGERFORMAT' 12345
  33. say result
  34. 'INPUT' '"INPUT Demo"' '"Enter a number,"' '"please:"'
  35. say result
  36.